The 640 MEG Shareware Studio 2/The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO/cad/vm120.zip/VM.LSP

Lisp/Scheme | 1992-05-06 | 6KB | 1 lines

(prompt "loading VARMASTER 1.2, one moment ......")(setq counter 0)(DEFUN C:VM (/ file olderr msg)(setq olderr *error*)(defun *error* (msg)(prompt msg)(setq *error* olderr)(princ))(setq file (open "vmaster.dat" "w" ))(setq cmde (getvar "cmdecho"))(setvar "cmdecho" 0)(princ (getvar "aflags") file)(princ "\n" file)(princ (getvar "angbase") file)(princ "\n" file)(princ (getvar "angdir") file)(princ "\n" file)(princ (getvar "aperture") file)(princ "\n" file)(princ (getvar "attdia") file)(princ "\n" file)(princ (getvar "attmode") file)(princ "\n" file)(princ (getvar "attreq") file)(princ "\n" file)(princ (getvar "aunits") file)(princ "\n" file)(princ (getvar "auprec") file)(princ "\n" file)(princ (getvar "axismode") file)(princ "\n" file)(princ (getvar "axisunit") file)(princ "\n" file)(princ (getvar "blipmode") file)(princ "\n" file)(princ (getvar "chamfera") file)(princ "\n" file)(princ (getvar "chamferb") file)(princ "\n" file)(princ (getvar "cmdecho") file)(princ "\n" file)(princ (getvar "coords") file)(princ "\n" file)(princ (getvar "cvport") file)(princ "\n" file)(princ (getvar "dimalt") file)(princ "\n" file)(princ (getvar "dimaltd") file)(princ "\n" file)(princ (getvar "dimaltf") file)(princ "\n" file)(princ (getvar "dimapost") file)(princ "\n" file)(princ (getvar "dimaso") file)(princ "\n" file)(princ (getvar "dimasz") file)(princ "\n" file)(princ (getvar "dimblk") file)(princ "\n" file)(princ (getvar "dimblk1") file)(princ "\n" file)(princ (getvar "dimblk2") file)(princ "\n" file)(princ (getvar "dimcen") file)(princ "\n" file)(princ (getvar "dimclrd") file)(princ "\n" file)(princ (getvar "dimclre") file)(princ "\n" file)(princ (getvar "dimclrt") file)(princ "\n" file)(princ (getvar "dimdle") file)(princ "\n" file)(princ (getvar "dimdli") file)(princ "\n" file)(princ (getvar "dimexe") file)(princ "\n" file)(princ (getvar "dimexo") file)(princ "\n" file)(princ (getvar "dimgap") file)(princ "\n" file)(princ (getvar "dimlfac") file)(princ "\n" file)(princ (getvar "dimlim") file)(princ "\n" file)(princ (getvar "dimpost") file)(princ "\n" file)(princ (getvar "dimrnd") file)(princ "\n" file)(princ (getvar "dimsah") file)(princ "\n" file)(princ (getvar "dimscale") file)(princ "\n" file)(princ (getvar "dimse1") file)(princ "\n" file)(princ (getvar "dimse2") file)(princ "\n" file)(princ (getvar "dimsho") file)(princ "\n" file)(princ (getvar "dimsoxd") file)(princ "\n" file)(princ (getvar "dimstyle") file)(princ "\n" file)(princ (getvar "dimtad") file)(princ "\n" file)(princ (getvar "dimtfac") file)(princ "\n" file)(princ (getvar "dimtih") file)(princ "\n" file)(princ (getvar "dimtix") file)(princ "\n" file)(princ (getvar "dimtm") file)(princ "\n" file)(princ (getvar "dimtofl") file)(princ "\n" file)(princ (getvar "dimtoh") file)(princ "\n" file)(princ (getvar "dimtol") file)(princ "\n" file)(princ (getvar "dimtp") file)(princ "\n" file)(princ (getvar "dimtsz") file)(princ "\n" file)(princ (getvar "dimtvp") file)(princ "\n" file)(princ (getvar "dimtxt") file)(princ "\n" file)(princ (getvar "dimzin") file)(princ "\n" file)(princ (getvar "dragmode") file)(princ "\n" file)(princ (getvar "dragp1") file)(princ "\n" file)(princ (getvar "dragp2") file)(princ "\n" file)(princ (getvar "elevation") file)(princ "\n" file)(princ (getvar "expert") file)(princ "\n" file)(princ (getvar "filedia") file)(princ "\n" file)(princ (getvar "filletrad") file)(princ "\n" file)(princ (getvar "fillmode") file)(princ "\n" file)(princ (getvar "gridmode") file)(princ "\n" file)(princ (getvar "gridunit") file)(princ "\n" file)(princ (getvar "highlight") file)(princ "\n" file)(princ (getvar "insbase") file)(princ "\n" file)(princ (getvar "lastpoint") file)(princ "\n" file)(princ (getvar "limcheck") file)(princ "\n" file)(princ (getvar "limmax") file)(princ "\n" file)(princ (getvar "limmin") file)(princ "\n" file)(princ (getvar "ltscale") file)(princ "\n" file)(princ (getvar "lunits") file)(princ "\n" file)(princ (getvar "luprec") file)(princ "\n" file)(princ (getvar "maxactvp") file)(princ "\n" file)(princ (getvar "maxsort") file)(princ "\n" file)(princ (getvar "menuecho") file)(princ "\n" file)(princ (getvar "mirrtext") file)(princ "\n" file)(princ (getvar "orthomode") file)(princ "\n" file)(princ (getvar "osmode") file)(princ "\n" file)(princ (getvar "pdmode") file)(princ "\n" file)(princ (getvar "pdsize") file)(princ "\n" file)(princ (getvar "pickbox") file)(princ "\n" file)(princ (getvar "qtextmode") file)(princ "\n" file)(princ (getvar "regenmode") file)(princ "\n" file)(princ (getvar "shadedge") file)(princ "\n" file)(princ (getvar "shadedif") file)(princ "\n" file)(princ (getvar "sketchinc") file)(princ "\n" file)(princ (getvar "skpoly") file)(princ "\n" file)(princ (getvar "snapang") file)(princ "\n" file)(princ (getvar "snapbase") file)(princ "\n" file)(princ (getvar "snapisopair") file)(princ "\n" file)(princ (getvar "snapmode") file)(princ "\n" file)(princ (getvar "snapstyl") file)(princ "\n" file)(princ (getvar "snapunit") file)(princ "\n" file)(princ (getvar "splframe") file)(princ "\n" file)(princ (getvar "splinesegs") file)(princ "\n" file)(princ (getvar "splinetype") file)(princ "\n" file)(princ (getvar "surftab1") file)(princ "\n" file)(princ (getvar "surftab2") file)(princ "\n" file)(princ (getvar "surftype") file)(princ "\n" file)(princ (getvar "surfu") file)(princ "\n" file)(princ (getvar "surfv") file)(princ "\n" file)(princ (getvar "texteval") file)(princ "\n" file)(princ (getvar "textsize") file)(princ "\n" file)(princ (getvar "thickness") file)(princ "\n" file)(princ (getvar "tilemode") file)(princ "\n" file)(princ (getvar "tracewid") file)(princ "\n" file)(princ (getvar "ucsfollow") file)(princ "\n" file)(princ (getvar "ucsicon") file)(close file)(command "vmaster")(if (/= (open "$$$.lsp" "r") nil)(load "$$$"))(command "shell" "del vmaster.dat")(graphscr)(prompt "\nGoodbye from VARMASTER 1.2")(prompt "\nCopyright (c) 1992 Snappy Software, All Rights Reserved")(setvar "CMDECHO" cmde)(prin1))(c:VM)